10 IF PEEK(49048) <128 THEN TEXT : HOME : VTAB 10: HTAB 8: PRINT "<CTRL-I>CANNOT ENHANCE APPLEWORKS": HTAB 13: PRINT "ON AN APPLE ][": VTAB 20: PRINT "PRESS A KEY TO QUIT";: GET Q$: PRINT CHR$(4)"BYE"
750 PRINT CHR$(4)"bload aplworks.system,t$ff,a$4000": IF PEEK(16386) = 72 THEN TEXT : HOME : PRINT : PRINT "This utility can not be run on a copy of AppleWorks that has already": PRINT "been modified with the time utility.": END
755 N = PEEK(16385):V0 = (N = 149):V1 = (N = 3):V2 = (N = 23):V3 = (N = 37):V4 = (N = 8):G2 = (N = 46):G3 = (N = 253):F2 = (N = 75): IF V1 THEN VA = ( PEEK(16394) = 64):NB = NOT VA
756 V5 = (N = 4):VS$ = "$00":VM$ = "SYS": IF V5 THEN VS$ = "BIN":VM$ = "BIN"
760 PTR = 6 *4096 +8 *256 +3
765 IF V0 OR V1 THEN FOR I = 0 TO ( PEEK(16386) = 58): GOSUB 9000: NEXT
840 FOR I = 1 TO 10:A% = PEEK( -16336) *1 + PEEK( -16336): NEXT
850 FOR LL = 1 TO 1000: NEXT
870 TEXT : HOME
871 PRINT CHR$(4)"bye"
884 REM
885 REM ERROR HANDLING ROUTINES (CALLED BY ONERR GOTO)
886 REM
890 PRINT : ON PEEK(222)/2 -1 GOSUB 900,910,920
892 PRINT "Unexpected error #" PEEK(222)
893 PRINT : POKE -16368,0: PRINT "Press Q to quit or any other key to continue. ";: GET A$: IF A$ < >"q" AND A$ < >"Q" THEN RESUME
895 GOTO 870
900 PRINT "Disk is write protected. Please remove write protect tab off disk and reinsert": RETURN
910 PRINT "Cannot find correct file": IF ER = 2 THEN PRINT : PRINT CHR$(7);"MODIFICATION ABORTED.": TEXT : NEW : END
911 IF ER >2 THEN PRINT "Please check drive for an exact copy of the AppleWorks disk.": RETURN
912 PRINT "Please enter the prefix of the AppleWorks program": CALL -868: INPUT PF$: IF PF$ = "" THEN PF$ = "/APPLEWORKS"
913 POP :ER = ER +1: PRINT CHR$(4)"prefix"PF$: RESUME
920 PRINT "Unable to read/write on disk. Please check to see if a copy of the original": PRINT "disk is in drive one and the drive door is closed": RETURN
1999 REM <CTRL-J> Print heading and form window<CTRL-J>